home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / sort2.zip / ISWILD.FUN < prev    next >
Text File  |  1993-01-04  |  238b  |  6 lines
  1. { Determines if there is any ambiguity in a file specification }
  2.  
  3. function iswild(s:string):boolean; var i:integer; begin iswild:=false;
  4. for i:=length(s) downto 1 do if s[i] in ['*','?'] then begin
  5.     iswild:=true; exit; end; end;
  6.